#include <iostream>
#include <string>
#include <vector>

int main() {
    std::string text;
    std::getline(std::cin, text);
    int t = 0;
    std::string word = "";
    std::vector<std::string> array;
    int zk = 0;
    int lb = 0;
    int kl = 0;
    int defu = 0;
    int dlun = 0;
    std::string dlun2 = "";

    std::vector<std::string> alphabet = {"А", "Б", "В", "Г", "Д", "Е", "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я"};
    std::vector<char> alphabet2 = {'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'v', 'x', 'y', 'z'};
    std::vector<char> alphabet3 = {'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'V', 'X', 'Y', 'Z'};

    for (char i : text) {
        if (i == ' ') {
            t++;
            array.push_back(word);
            word = "";
        } else {
            word += i;
        }
    }
    array.push_back(word);

    for (const std::string& j : array) {
        if (std::find(alphabet.begin(), alphabet.end(), j.substr(0, 1)) != alphabet.end()) {
            zk++;
        }
        if (j.length() <= 3) {
            kl++;
        }
        if (j.length() > dlun) {
            dlun2 = j;
            dlun = j.length();
        }
        for (char r : j) {
            if (std::find(alphabet2.begin(), alphabet2.end(), r) != alphabet2.end() || std::find(alphabet3.begin(), alphabet3.end(), r) != alphabet3.end()) {
                lb++;
                break;
            }
        }
        for (char r2 : j) {
            if (r2 == '-') {
                defu++;
                break;
            }
        }
    }

    if (t == 0) {
        std::cout << "Мало данных для анализа" << std::endl;
    } else {
        std::cout << "Кол-во слов: " << t + 1 << std::endl;
        std::cout << "Кол-во слов с заглавной кириллической буквы: " << zk << std::endl;
        std::cout << "Кол-во слов содержащих латинский символ: " << lb << std::endl;
        std::cout << "Кол-во слов не привышающих 3 символа: " << kl << std::endl;
        std::cout << "Кол-во слов в составе которых имеется дефиз: " << defu << std::endl << std::endl;
        std::cout << "Самое длинное слово: " << dlun2 << std::endl;
        std::cout << "Длина слова: " << dlun << std::endl;
    }

    return 0;
}

